home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D2.D64 / auto character (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  69 lines
  1. 10 REM AUTO CHARACTER EDITOR
  2. 20 REM LUDO DECOCK
  3. 30 REM LINDENSTRAAT 26
  4. 40 REM 8840 GITS
  5. 50 REM BELGIUM
  6. 100 A=A+1:IFA=1THENLOAD"AUTO C",8,1
  7. 110 POKE53280,0:POKE53281,0:PRINTCHR$(147)CHR$(14)CHR$(9):POKE2,0:POKE787,0
  8. 130 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  9. 140 PRINT" [206]OLUXE AUTO-CHARACTER EDITOR [146]"
  10. 150 PRINT"    ([195]) 1987 [198]LOSSOFTWARE     [146]"
  11. 160 PRINT"[154][212]HIS PROGRAM CONVERTS A CHARACTER SET"
  12. 170 PRINT"WITH LOAD ADDRESS 12288, TO A [206][207][204][213][216][197]"
  13. 180 PRINT"CHARACTER SET."
  14. 190 PRINT"[150][198]ILENAME CHARACTER SET (Q)?":POKE19,1:INPUT"[158]";FI$
  15. 200 POKE19,0:IFLEN(FI$)<1ORLEN(FI$)>16THENGOTO190
  16. 210 IFFI$="Q"THENPRINT"[147]":SYS51200:GOTO250
  17. 220 PRINT:PRINT"[208]UT DISK WITH CHARACTERSET IN DRIVE !!"
  18. 230 PRINT"[155] [208][210][197][211][211] [193] [203][197][217] [146]":POKE198,0:WAIT198,1
  19. 240 SYS57812FI$,8,1:POKE780,0:SYS65493
  20. 250 FORX=12288TO12295:POKEX,255:NEXTX
  21. 260 FORX=12288+(32*8)TO12288+7+(32*8):POKEX,0:NEXTX
  22. 270 FORX=12288+(160*8)TO12288+5+(160*8):POKEX,252:NEXTX
  23. 280 FORX=12288+6+(160*8)TO12288+7+(160*8):POKEX,0:NEXTX
  24. 290 IFFI$<>"Q"THENPRINT"[147]":GOTO330
  25. 300 PRINTCHR$(14)"[147][155][195]HARACTERSET 1 OR 2 ?":INPUT"";K$
  26. 310 IFK$<>"1"ANDK$<>"2"THENGOTO300
  27. 320 IFK$="2"THENPOKE787,10
  28. 330 PRINT"[147][195]HARACTERS DOUBLE IN [216], [217] OR [206]ORMAL.":INPUT"";D$
  29. 340 IFD$<>"X"ANDD$<>"Y"ANDD$<>"N"THENGOTO330
  30. 350 IFD$="X"THENPOKE2,10
  31. 360 IFD$="Y"THENPOKE2,100
  32. 370 PRINT"[156] PRESS A KEY [146]"
  33. 380 POKE198,0:WAIT198,1
  34. 390 POKE55,0:POKE56,48:RUN400
  35. 400 IFPEEK(2)=10THENDX=8
  36. 410 IFPEEK(2)=100THENDY=8
  37. 420 AD=12288:IFPEEK(787)=10THENAD=14336
  38. 430 POKE56334,1:POKE53272,PEEK(53272)AND240OR(AD/1024):DIMTE$(36)
  39. 440 IFPEEK(787)=10THENPRINTCHR$(142)
  40. 450 FORCH=48TO90:IFCH>57ANDCH<65THENGOTO650
  41. 460 PRINT"[144]";CHR$(CH):LE=LE+1
  42. 470 P=PEEK(1024):P=P*8:A=AD+P
  43. 480 PRINT"[147][159]CONVERTING NOLUXE CHARACTER SET":FORX=0TO7:A(X+1)=PEEK(A+X):NEXTX
  44. 490 PRINT"":FORC=1TO8:PRINTTAB(12);
  45. 500 FORX=1TO8
  46. 510 B=INT(A(C)/2):B=B*2:B=A(C)-B
  47. 520 IFB=0THENA$(X)=A$(X)+" [146]"
  48. 530 IFB=1THENA$(X)=A$(X)+"@"
  49. 540 A(C)=INT(A(C)/2)
  50. 550 NEXTX
  51. 560 FORI=8TO1STEP-1:PRINTA$(I);
  52. 570 IFPEEK(2)=10THENPRINTA$(I);
  53. 580 IFPEEK(2)=100THENNEXTI:PRINT:FORI=8TO1STEP-1:PRINTTAB(12);A$(I);
  54. 590 A$(I)="":NEXTI:PRINT
  55. 600 NEXTC
  56. 610 TE$(LE)="":FORS=1316TO(1324+DX):SO=0
  57. 620 FORSS=STOS+((DY+8)*40)STEP40:SO=PEEK(SS):IFSO=0THENTE$(LE)=TE$(LE)+"1":NEXTSS
  58. 630 IFSO=160THENTE$(LE)=TE$(LE)+"0":NEXTSS
  59. 640 NEXTS
  60. 650 NEXTCH
  61. 660 POKE53272,PEEK(53272)AND240OR21
  62. 670 PRINT"[147]SAVEN DISK : FILENAME ?"
  63. 680 POKE19,1:INPUT"[154]";FI$:IFLEN(FI$)<0ORLEN(FI$)>13THEN670
  64. 690 POKE19,0:FI$="K."+LEFT$(FI$,LEN(FI$)):OPEN2,8,2,FI$+",S,W"
  65. 700 PRINT#2,8+DX:PRINT#2,8+DY:FORF=1TO36
  66. 710 PRINT#2,LEN(TE$(F)):PRINT#2,TE$(F):NEXTF:CLOSE2:
  67. 720 PRINT"[147]"
  68. 730 POKE2,0:POKE787,0:RUN110
  69.